home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Arcade• / RoboWar •••• / Robots Folder / Coroner2 / Coroner2 next >
Text File  |  1990-04-06  |  3KB  |  187 lines
  1. # Coroner
  2.  
  3.     x 40 < slowstartx faststartx ife
  4.     y 40 < slowstarty faststarty ife
  5.     1 a' store
  6.     1 b' store
  7.  
  8. Init:
  9.     50 shield' store
  10.     x 70 < a and slowx if
  11.     y 70 < b and slowy if
  12.     collision startblastem if
  13.     a b or not main1 if
  14.     init jump
  15.  
  16. slowstartx:
  17.     -1 speedx' store
  18.     return
  19.  
  20. faststartx:
  21.     -5 speedx' store
  22.     return
  23.  
  24. slowstarty:
  25.     -1 speedy' store
  26.     return
  27.  
  28. faststarty:
  29.     -5 speedy' store
  30.     return
  31.  
  32. slowx:
  33.     x 25 < stopx crawlx ife
  34.     return
  35.  
  36. slowy:
  37.     y 25 < stopy crawly ife
  38.     return
  39.  
  40. stopx:
  41.     0 speedx' store
  42.     0 a' store
  43.     return
  44.  
  45. stopy:
  46.     0 speedy' store
  47.     0 b' store
  48.     return
  49.  
  50. crawlx:
  51.     x 40 < verycrawlx modcrawlx ife
  52.     return
  53.  
  54. crawly:
  55.     y 40 < verycrawly modcrawly ife    
  56.     return
  57.  
  58. verycrawlx:
  59.     -1 speedx' store
  60.     return
  61.  
  62. modcrawlx:
  63.     -3 speedx' store
  64.     return
  65.  
  66. verycrawly:
  67.     -1 speedy' store
  68.     return
  69.  
  70. modcrawly:
  71.     -3 speedy' store
  72.     return
  73.  
  74. startblastem:
  75.     30 aim' store
  76.  
  77. blastem:
  78.     range 0 > kill rotate ife
  79.     collision not checkcontinue if
  80.     energy 2 / shield' store
  81.     blastem jump
  82.  
  83. kill:
  84.     range 40 < fullpower rotate ife
  85.     return
  86.  
  87. fullpower:
  88.     energy 1 - missile' store
  89.     0 shield' store
  90.     50 missile' store
  91.     return
  92.  
  93. pounce:
  94.     energy 10 > bang if
  95.     return
  96.  
  97. bang:
  98.     energy missile' store
  99.     return
  100.  
  101. rotate:
  102.     -70 aim + aim' store
  103.     return
  104.  
  105. checkcontinue:
  106.     drop
  107.     return
  108.  
  109. transition1:
  110.     drop
  111.     -10 speedy' store
  112.  
  113. repeat1:
  114.     y 40 < stop1 if
  115.     energy 2 / shield' store
  116.     repeat1 jump
  117.  
  118. stop1:
  119.     0 speedy' store
  120.  
  121. main1:
  122.     drop
  123.     85 aim' store
  124.     5 i' store
  125.     0 speedx' store
  126.     0 speedy' store
  127.     damage d' store
  128.  
  129. loop1:
  130.     range 0 > pounce smallrotate1 ife
  131.     energy 2 / shield' store
  132.     damage d ! transition2 if
  133.     loop1 jump
  134.  
  135. smallrotate1:
  136.     aim i + aim' store
  137.     aim 180 > reverse11 if
  138.     aim 90 < reverse21 if
  139.     return
  140.  
  141. reverse11:
  142.     -7 i' store
  143.     return
  144.  
  145. reverse21:
  146.     5 i' store
  147.     return
  148.  
  149. transition2:
  150.     drop
  151.     10 speedy' store
  152.  
  153. repeat2:
  154.     y 260 > stop2 if
  155.     energy 2 / shield' store
  156.     repeat2 jump
  157.  
  158. stop2:
  159.     0 speedy' store
  160.  
  161. main2:
  162.     drop
  163.     0 aim' store
  164.     5 i' store
  165.     0 speedx' store
  166.     0 speedy' store
  167.     damage d' store
  168.  
  169. loop2:
  170.     range 0 > pounce smallrotate2 ife
  171.     energy 2 / shield' store
  172.     damage d ! transition1 if
  173.     loop2 jump
  174.  
  175. smallrotate2:
  176.     aim i + aim' store
  177.     aim 90 > reverse12 if
  178.     aim 7 < reverse22 if
  179.     return
  180.  
  181. reverse12:
  182.     -7 i' store
  183.     return
  184.  
  185. reverse22:
  186.     5 i' store
  187.     return